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i 2-001 - Original. SMB 20-Sep-1982. This astute is a complete 
i rewrite of the old SCRZAPSIN modu: 

i Modify to use new 48 bit macro. sts "01-0 t-1982 

i Modify to mark screen pointers for repaint. SMB 08-Oct-1982 
i Fix up the format a Little. SMB 10-Oct-1982 

i Put deleted Lines on the weee list. JBS g2e-betot9 
Maintain the ver tous sereen Pri s 2-0 Ss 2-9 {5 82 
i 
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ie 


Reintein SCR_EDIT tettes. -0 + 
Add the third parameter. 38.9 -Nov-19 
Remove the edit buffer. Jas 2 poece 1986 
Add two more parameters. JBS 27-Dec-1 
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FACILITY: EDT -=- The DEC Standard Editor 
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: 1 ZTITLE "EDTSSCRZAPSIN = Mark Lines to be repainted’ > 
5 § MODULE EDTSSCRZAPSIN ( ! Mark Lines to be repein : 
; i fOENT = 'v04-000' ' File: SCRZAPSIN. tse Edit: JBS2012 ; 
; 5 : BEGIN ; 
; $ i PEPE C SSE SS SSS S TST TTT TT TTT cee C Cc TTT ic cirri iiiiig | é 
5 '@ a Ps 
; $ § 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 8 . 3 
: 10 0 1 i® DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. . | ; 
3 i | ie ALL RIGHTS RESERVED. - : 
2 Hid *® j Ps 
: 18 ig 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED ® 3 
3 14 14 1 !* ONLY IN ACCORDANCE WITH THE TERM F CH LICENSE AND WITH THE * ; 
ee 15 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * | : 
3 1 1 1 '* COPIES THEREOF MAY NOT OVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 3 
Bie S 17 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * $ 
; + Bale : ‘* TRANSFERRED. * 3 
3 'e * $ 
5 0 80 QO 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
3 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 3 
; ¢ 8 ¢ : ° CORPORATION. * 3 
3 \e * : 
; 4 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 3 
5 2 88 i : - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 3 
5 ! ~ ; 
: 7 0027 1! * 3 
4 ; + : : eRe ReR RARER RARER ERAAAAAAAEEE RAAT AAEAAEAAAAAAAAARAAAAAAEAAAAAA KARE P 

! 8 
3 0 0080 1 : 
3 1 4 1 : é 
8 $38 
5 $e 1 ABSTRACT: P 
: 5 035 1 : 
; ] 4 : This module marks screen Lines for repaint : 
; ; : ENVIRONMENT: Runs at any access mode - AST reentrant : 
3 1 : 
3 1 : 
3 1 ‘ 
3 1 : 
3 1 : 
3 1 : 
3 1 : 
; 1 : 
3 1 : 
3 1 ‘ 
$ 1 , 
; 1 : 
3 1 : 
; 1 . 
5 1 . 
5 1 : 
; 1 : 
: 1 3 
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EDTSSCRZAPSIN EDTSSCRZAPSI 
104-000 ED TSese REPA 
3 1 ZSBTTL “EDTSSSC_REPAINT = mark screen Lines for repaint’ 
5 Mark screen Lines for repaint 


GLOBAL ROUTINE EDTSSSC_REPAINT ( 
FIRST, First Line to clear 


! 
! 
LAST ' Last line to clear 
MINPOS, i First position modified 
MAXPOS, ' Last position modified 
INSDEL_FLAG ! Flag for handling of inserted and deleted Lines 
) : NOVALUE = 


~ 
VFuUn—o 


. 
FUNCTIONAL DESCRIPTION: 


This routine marks specified Lines in the screen data structure for 
repaint, indicaiing that those Lines must be completely updated. 


| 
FORMAL PARAMETERS: | 
FIRST The first Line to repaint 


EEELEFEESTESS. 
Wnr—OOM@ 


ARENAS SBNOUE WN SOON NAAR UV HOSS URAR MUL S SO We 


3 1 

: 1 

ry 1 

3 1 

: 1 

3 1 

3 1 

gs F 1 

=F 1 

>.> 1 

mal 1 te 

3; 1 ..7 

™_ 1! 

:- * 1! 

* 1! 

3 1! 

. y 1! 

3 1 1! 

s (1 1! 

a? 1! 

sy 1! LAST The last Line to repaint 

| 0684 1! 

; : eH : } MINPOS First position modified, in first Line 

5 i 068 ! MAXPOS Last position modified, in last Line (if < 0, don't repaint the last Line) 

= $689 1! INSDEL_FLAG 0 = skip deleted and inserted Lines, 

2: ae 0690 1! 1 = free deleted Lines, repaint inserted Lines, 

: : Be3) ; -1 = should be no deleted or inserted lines 

. 3 1 ! IMPLICIT INPUTS: 

» § 94 1! 

s 1 0695 1! NONE 

7% 06 1! 

7 0697 1°! IMPLICIT OUTPUTS: 

.- 4 0698 1! 

. a 5344 1! EDTSSA_FST_SCRPTR 
3 : Bons : EDTSSA_LST_SCRPTR 

$e. 44 1 ! ROUTINE VALUE: 

» .¢ 7 1! 

ee 7 1! NONE 

ee 705 1! | 
3 ‘ 4 ' SIDE EFFECTS: | 
3 708 1! Marks the specified Lines as modified. 
; 139 709 1! | 
: 140 710 1 !<- 
: «141 711 «1 
: 166 712 BEGIN 
3; 14 13 
3: 146 714 
3; «6145 715 FIRST : REF SCREEN_LINE, 
: 146 rig LAST : REF SCREEN_CINE; | 
: 14 71 
: 168 ne exten, ROUTINE 
; «4149 71 EDTSSSC_LNDEL; ! Delete a Line from the structure 
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; 150 7 

3 49) 7 EXTERN, 

eB § 7 EDTSSA_FST_SCRPTR : REF SCREEN_LINE, ! First screen pointer in the data base 

5 ; 4 ? EDTSSA_LST_SCRPTR : REF SCREEN_LINE; ! Last screen pointer in the data base 

: 155 725 LOCAL 

: 4 6 7 é NXT_SCRPTR : REF SCREEN_LINE, 
-.% 7 SCRPTR : REF SCREEN_LINE, 

; } 3 4 3 REPAINT_DONE; 
; 160 730 SCRPTR = .FIRST; 
: 161 73) REPAINT_DONE = 0; 

; 183 7 5 i Update the Lines for repaint until the last Line is seen. 

3 19 g : } Deleted Lines, however, are put on the free List if so requested. 

: 1 7 . 

3 ie? 7 WHILE (( NOT .REPAINT_DONE) AND (.SCRPTR NEQA 0)) DO | 
3 198 4 : BEGIN 

: 19 740 4 IF ((.SCRPTR CSCR_EDIT_FLAGS] AND (SCR_EDIT_INSLN OR SCR_EDIT_DELLN)) NEQ 0) | 
: ih oye THEN EGIN | 
: 178 O74 4 

3: 1746 0744 4 CASE .INSDEL_FLAG FROM 0 TO 1 OF 

3; 175 0745 4 SET 

: 176 ore 4 : 

: 177 747? & (0) : ! Skip over deleted and inserted Lines 
; 178 0748 5 BEGIN 
: 179 0749 3 NXT_SCRPTR = .SCRPTR CSCR_NXT_LINE); 

; 181 0751 5 IF (.SCRPTR EQLA .LAST) THEN REPAINT_DONE = 1 ELSE SCRPTR = .NXT_SCRPTR; 

1B ee o0: 

re? 754 4 ; 

3 188 aoe $ (1) ' Free deleted Lines, mark inserted Lines for repaint 

: 189 0757 3 NXT_SCRPTR = .SCRPTR CSCR_NXT_LINE); 

: 189 3544 g IF ((.SCRPTR CSCR_EDIT_FLAGS] AND SCR_EDIT_DELLN) NEQ 0) 

: 190 760 THEN 

3 6191 358 6 BEGIN 

3 136 166 ° EDTSSSC_LNDEL (.SCRPTR); ' Free the deleted Line 

; '¢ 

: Hb ree ? : The first and last cells had better not have been set to zero. 
: 196 166 ASSERT (.EDTSSA_LST_SCRPTR NEQA 0); | 
> 197 767 6 ASSERT (.EDTSSA_FST-SCRPTR NEQA 0); 

: 4198 768 3 END 

; «199 7 

: 200 770 6 BEGIN ! Mark the inserted Line for repaint 

; 201 771 6 SCRPTR FSCR_EDIT_FLAGS = .SCRPTR [SCR_EDIT_FLAGS] AND ( NOT SCR_EDIT_INSLN); 

3 4 a " SCR_EDIT_FLAGS) = .SCRPTR CSCR_EDIT_FLAGSJ OR SCR_EDIT_MODIFY; 

: 204 77% . 

é 44 or? IF (.SCRPTR EQLA .LAST) THEN REPAINT_DONE = 1 ELSE SCRPTR = .NXT_SCRPTR; 


M 2 
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; 207 wr 4 END; | 
; +8 COUTRANGE) : 
: 21 780 4 ASSERT (0); 
i gle 18 4 
: 21 783 4 END | 
: 216 784 3 ELSE 
i 319 785 4 BEGIN | 
i giz 2 ; ; IF _(.SCRPTR EQLA FIRST) | 
; 13 2 ; 4 SCRPTR CSCR_EDIT_MINPOS] = MINU (.SCRPTR CSCR_EDIT_MINPOS], .MINPOS) 
i: 921 291 4 SCRPTR CSCR_EDIT_MINPOS) = 0; 
; § 193 5 IF (C.SCRPTR EQLA .LAST) AND (.MAXPOS GEQ 0)) 
; 5 195 4 EL gg SCRPTR CSCR_EDIT_MAXPOS] = MAXU (.SCRPTR CSCR_EDIT MAXPOS], .MAXPOS) 
5 i 0797 4 SCRPTR CSCR_EDIT_MAXPOS) = 255; 
; 229 0799 5 IF ((.SCRPTR NEQA .LAST) OR (.MAXPOS GEQ 0)) 
; 231 0801 4 SCRPTR CSCR_EDIT_FLAGS] = .SCRPTR CSCR_EDIT_FLAGS] OR SCR_EDIT_MODIFY; 
; 35 0805 4 IF (.SCRPTR EQLA .LAST) THEN REPAINT_DONE = 1 ELSE SCRPTR = .SCRPTR CSCR_NXT_LINE); | 
; 235 0805 END; | 
; 237 0807 END; 
: 239 0809 1 END; ! of routine EDT$$SC_REPAINT 


-TITLE EDTS$SCRZAPSIN EDT$SCRZAPSIN = Mark Lines to be 
repainted 

.IDENT \V04-000\ 

.EXTRN EDTS$S$SC_LNDEL 

“EXTRN EDTS$$A_CST_SCRP 

-EXTRN EDTISSINTER™ “ERR 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


EDTSSA_FST_SCRPTR 


003C 00000 -ENTRY EDTS$SSC REPAINT, Save R2,R3,R4,R5 7 0665 
55 000000006 00 9€ 0000 MOVAB EDISSINTER E R5 F 
2 04 AC 00 00 MOVL FIRST. "SERBIA : 0730 
3 D4 Op CLRL § REPAINT_DONE : 0731 
01 9 OF 1$: BLBC REPAINT-DONE, 2$ : 0737 
52 D 13 2$: TSTL SCRPTR ; 
01 1 BNEQ 4 ; 
06 0D a2 $3 18 3$: BITB 13(SCRPTR), #6 ; 0740 | 
51 1 1C BEQL ; | 
01 00 14 AC CF OOOIE CASEL INSDEL_FLAG, #0, #1 > 0744 
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RO, 12(SCRPTR) 
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; Routine Size: 209 bytes, Routine Base: _EDTSICODE + 0000 


: 8 


OB } !<BLF /PAG*> 
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O8$ | 1 END ! of module EDTSSCRZAPSIN 


PSECT SUMMARY 
Name Bytes Attributes 
-EDTSCODE 209 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


cee moe eS Symbols Soe ret eS Pages Processing 
File Total Loaded Percent Mapped Time 
-$255SDUA EDT.SRC .L32; 377 15 & 0:00. 
~S353SDUASB:LEDT SRCJPSECTS<L32; 1 2 sd ? 00:00:1 


COMMAND QUALIFIERS 


=r 
Noe 
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un 


IN) 
209 code + 0 data bytes 


; Run me: : 10. 
; Elapsed Time: 719. 
. in: 007 
; Newey Ae ie 11116 
; Memor 1 ut : 115 pages 
; Compilation Complete 
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